home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO018.dsk
/
JOYSTICK.TEST.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
1KB
|
37 lines
100 REM JOYSTICK TEST
110 REM BY KEITH FALKNER
120 REM
130 PRINT CHR$(21): TEXT : HOME : SPEED= 255: NORMAL
140 DEF FN D(Z) = INT(Z *39/255 +.5)
150 B0 = 49249:B1 = 49250:H = 128
160 POKE 49168,0
170 FOR I = 768 TO 794: READ D: POKE I,D: NEXT
180 VTAB 6: PRINT "JOYSTICK/PADDLE TEST by Keith Falkner."
190 VTAB 24: PRINT "Press the ESCape key for Startup menu.";
200 VTAB 14: PRINT
210 GOSUB 450: IF Z GOTO 250
220 PRINT "PLUG IN JOYSTICK OR PADDLES TO CONTINUE."
230 IF PEEK(49152) = 155 GOTO 430
240 GOSUB 450: IF Z = 0 GOTO 230
250 GR :X = 1.1:Y = 1.1
260 REM MAIN LOOP
270 IF PEEK(49152) = 155 GOTO 430
280 XO = X:P0 = PDL(0):X = FN D(P0): IF XO = X GOTO 330
290 COLOR= 0
300 IF Y THEN VLIN 0,Y -1 AT XO
310 IF Y <39 THEN VLIN Y +1,39 AT XO
320 COLOR= 15: PLOT XO,Y: VLIN 0,39 AT X
330 YO = Y:P1 = PDL(1):Y = FN D(P1): IF YO = Y GOTO 380
340 COLOR= 0
350 IF X THEN HLIN 0,X -1 AT YO
360 IF X <39 THEN HLIN X +1,39 AT YO
370 COLOR= 15: PLOT X,YO: HLIN 0,39 AT Y
380 COLOR= 1 +15 * RND(1): PLOT X,Y
390 VTAB 22: PRINT TAB( 12);: IF PEEK(B0) > = H THEN INVERSE
400 PRINT "X = "P0;: NORMAL : PRINT TAB( 23);: IF PEEK(B1) > = H THEN INVERSE
410 PRINT "Y = "P1;: NORMAL : PRINT " "
420 GOTO 270
430 TEXT : HOME : PRINT CHR$(4)"-STARTUP": END
440 REM CALL ML TO FIND STICK
450 CALL 768:Z = PEEK(795): RETURN
460 DATA 173,112,192,160,0,173,100,192,16,13,173,101,192,16,8,169,1,32,168,252,200,208,238,140,27,3,96